13801 Y=12:GOSUB133==:Y2=Y:GOSUB11950:Y=X(1):GOSUB10350:Y=12:GOSUB13300 13802 Y4=Y:GOSUB13050:Y=<INT(200*LOG(Y4/Y2)/LOG(18)))/10:RETURN 13850 Y1$="IMAGE-FREQ.REJECT.":REM***78 13851 Y=12:GOSUB13300:Y2=Y:Y=X(1)+2*X(5):GOSUB10350:Y8=1 13852 Y=Y8:GOSUB10400:Y=60:GOSUB13200:IFY8=1E6THEN13857 13853 IF ABS(Y-12)<3THEN13855 13854 YH=40:GOSUB13875:GOTO13852 13855 IFABS(Y-12)<.5THEN13857 13856 YH=80:GOSUB13875:GOTO13852 13857 Y4=Y8:GOSUB13050:Y=(INT(200*LOG(Y2/Y4)/LOG(10)))/10:RETURN 13875 Y8=(INT(100*Y8*10^”((12-Y)/YH)))/100 13876 IFY8>1E6THENY8=1E6 13877 RETURN 13900 Y1$="------------------“:REM****79 13910 RETURN 13950 Y1$="-------------------":REM**80 13960 GOTO14950 14000 Y1$="----------------":REM*****81 14010 RETURN 14050 Y1$="---------------":REM******82 14060 RETURN 14100 Y1$="---------------":REM******83 14108 RETURN 14150 Y1$="---------------":REM******84 14158 RETURN 14200 Y1$="-----------":REM**********85 14230 RETURN 14250 Y1$=“ANALOG DISPLAY":REM*******86 14251 IFY3=1THEN14266 14252 IFY>Y1ANDY<Y2THENY3=0:RETURN 14253 Y3=1:IFPEEK(826)=169THEN14260 14254 Y$(0)="169.032.162.016.157.248.129.232.208.250.162.030.169:233.157" 14255 Y$(1)="130.157.048.130.169.223.157.010.130.157.051.130.169.160.157" 14256 Y$(2)="130.157.050.130.157.089.130.157.090.130.157.129.130.157.130" 14257 Y$(3)="157.169.130.157.170.130.157.209.130.157.210.130.096.210.130" 14258 FORY4=0TO3:FORY5=0TO15:Y=VAL(RIGHT$(Y$(Y4).63-Y5*4)) 14259 POKE826+Y4*16+Y5.Y:NEXTY4 14260 POKE158.0 14261 PRINT"^^":Y$:"^^^^“:PRINTTAB(11)Y1.TAB(23)Y2 14262 PRINTTAB(12)"I--I^^^^^I I^^^^^I I IIIIHI\ /IIII": 14263 PRINT" ^^^^ II IIIHIII IIIIII IIR\ /IIII--": 14264 PRINT"^^^^^...,..,.....^^^^^" 14265 Y5=(12*Y2-24*Y1)/(Y2-Y1):Y6=12/(Y2-Y1) 14266 Y9=Y5+Y*Y6:IFY9<0 THEN Y9=0 14267 IFY9>36 THEN Y9=36 14268 POKE 837.Y9:SYS 826 14269 GETY1$:IFY1$=""THENRETURN 14270 Y3=0:PRINT"^":RETURN 14300 Y1$="TEXT ON SCREEN":REM*******87 14301 Y=LEN(Y$):PRINT:POKE158.0 14302 Y$=Y$+" ":IFLEN(Y$)<39THEN14302 14303 PRINT"^“:Y$:HOLD300:PRINT"^^":Y$:HOLD300:GETY1$:IFY1$=""THEN14303 14304 PRINT"^ ^": RETURN 14350 Y1$="TEXT ON PRINTER“:REM******88